Revista do CD-ROM 47/CD-ROM 47/CD-ROM 47.iso/aplicat/minibase/_setup.1/MiniBase.exe/0/RCDATA/TDATACONVERTFORM/TDATACONVERTFORM.txt

Text File | 1999-03-12 | 10.3 KB | 440 lines

object DataConvertForm: TDataConvertForm
  Left = 250
  Top = 102
  Width = 445
  Height = 385
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  Caption = 'Data Import Guide'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  ShowHint = True
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object ImportLabel: TLabel
    Left = 24
    Top = 0
    Width = 305
    Height = 13
    AutoSize = False
    Caption = 'Import Data'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object InputSG: TStringGrid
    Left = 24
    Top = 16
    Width = 385
    Height = 105
    DefaultColWidth = 80
    DefaultRowHeight = 16
    FixedCols = 0
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 300
    Width = 437
    Height = 39
    Align = alBottom
    TabOrder = 1
    object CancelBtn: TBitBtn
      Left = 96
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Cancel'
      ModalResult = 2
      TabOrder = 0
    end
    object PriorBtn: TBitBtn
      Left = 184
      Top = 8
      Width = 75
      Height = 25
      Caption = '<<  Prior'
      Enabled = False
      TabOrder = 1
      OnClick = PriorBtnClick
    end
    object NextBtn: TBitBtn
      Left = 264
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Next  >>'
      TabOrder = 2
      OnClick = NextBtnClick
    end
    object FinishBtn: TBitBtn
      Left = 352
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Finish'
      Enabled = False
      ModalResult = 1
      TabOrder = 3
      OnClick = FinishBtnClick
    end
  end
  object PC1: TPageControl
    Left = 0
    Top = 123
    Width = 437
    Height = 177
    ActivePage = StrDelimiterPage
    Align = alBottom
    TabOrder = 2
    object TextPage: TTabSheet
      Caption = 'text'
      TabVisible = False
      object RG1: TRadioGroup
        Left = 0
        Top = 48
        Width = 429
        Height = 65
        Caption = 'Text file field format '
        Columns = 2
        ItemIndex = 0
        Items.Strings = (
          'Delimited fields'
          'Fixed width fields')
        TabOrder = 0
      end
    end
    object FixedWPage: TTabSheet
      Caption = 'FixedWPage'
      TabVisible = False
      object Label9: TLabel
        Left = 0
        Top = 0
        Width = 104
        Height = 13
        Align = alTop
        Caption = 'Import field widths'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object GroupBox3: TGroupBox
        Left = 8
        Top = 18
        Width = 417
        Height = 143
        Caption = 'Set the width of each text field to import '
        TabOrder = 0
        object Label3: TLabel
          Left = 8
          Top = 16
          Width = 224
          Height = 26
          Caption =
            'Select a width for all fields and press the default width button' +
            ' or manualy edit each field'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          WordWrap = True
        end
        object FixedWidthSG: TStringGrid
          Left = 32
          Top = 48
          Width = 345
          Height = 89
          ColCount = 2
          DefaultColWidth = 260
          DefaultRowHeight = 16
          FixedCols = 0
          Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
          ScrollBars = ssVertical
          TabOrder = 0
          OnExit = FixedWidthSGExit
          OnKeyPress = FixedWidthSGKeyPress
          OnSelectCell = FixedWidthSGSelectCell
          RowHeights = (
            16
            16
            16
            16
            16)
        end
        object SpinEdit1: TSpinEdit
          Left = 240
          Top = 16
          Width = 49
          Height = 22
          MaxValue = 255
          MinValue = 1
          TabOrder = 1
          Value = 40
        end
        object WidthBtn: TBitBtn
          Left = 296
          Top = 16
          Width = 113
          Height = 25
          Caption = 'Set default field width'
          TabOrder = 2
          OnClick = WidthBtnClick
        end
      end
    end
    object StrDelimiterPage: TTabSheet
      Caption = 'StrDelimiterPage'
      TabVisible = False
      object Label7: TLabel
        Left = 0
        Top = 0
        Width = 429
        Height = 13
        Align = alTop
        Caption = 'Format settings'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object GroupBox1: TGroupBox
        Left = 0
        Top = 24
        Width = 417
        Height = 65
        Caption = 'Delimiters used to separate fields in text data '
        TabOrder = 1
        object Label2: TLabel
          Left = 34
          Top = 18
          Width = 216
          Height = 13
          Caption = 'Field delimiter used to separate text data fields'
        end
        object Label1: TLabel
          Left = 34
          Top = 38
          Width = 241
          Height = 13
          Caption = 'Qualifier that may be used to distinguish string fields'
        end
        object FldDelimCB: TComboBox
          Left = 312
          Top = 16
          Width = 81
          Height = 21
          ItemHeight = 13
          Items.Strings = (
            '[Comma]'
            '[Tab]'
            '[Semicolon]'
            '[Space]')
          MaxLength = 1
          TabOrder = 0
        end
        object StrDelimCB: TComboBox
          Left = 312
          Top = 36
          Width = 81
          Height = 21
          ItemHeight = 13
          Items.Strings = (
            '"'
            #39
            '(none)')
          MaxLength = 1
          TabOrder = 1
        end
      end
      object FirstRowCB: TCheckBox
        Left = 16
        Top = 142
        Width = 329
        Height = 17
        Caption =
          'Include first row in data (first row may contain field names onl' +
          'y)'
        TabOrder = 0
      end
      object GroupBox2: TGroupBox
        Left = 0
        Top = 96
        Width = 417
        Height = 41
        Caption = 'Date format for text to date field conversion '
        TabOrder = 2
        object Label8: TLabel
          Left = 34
          Top = 17
          Width = 257
          Height = 13
          Caption = 'Date format in text data (D = day, M = month, Y = year)'
        end
        object DateFormatCB: TComboBox
          Left = 312
          Top = 14
          Width = 80
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          Items.Strings = (
            'MDY'
            'DMY'
            'MYD'
            'DYM'
            'YMD'
            'YDM')
          TabOrder = 0
        end
      end
    end
    object MappingPage: TTabSheet
      Caption = 'dataset'
      TabVisible = False
      object Label6: TLabel
        Left = 208
        Top = 20
        Width = 142
        Height = 26
        Caption = 'Select from the list to alter the current row'#39's import data'
        WordWrap = True
      end
      object Label5: TLabel
        Left = 0
        Top = 0
        Width = 194
        Height = 13
        Align = alTop
        Caption = 'Import data mapped to table fields'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label10: TLabel
        Left = 48
        Top = 150
        Width = 147
        Height = 13
        Caption = '(Red = possible data mismatch)'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object SG1: TStringGrid
        Left = 45
        Top = 48
        Width = 332
        Height = 97
        Hint = 'to change import field, select new field in combo box'
        ColCount = 2
        DefaultColWidth = 155
        DefaultRowHeight = 16
        FixedCols = 0
        ScrollBars = ssVertical
        TabOrder = 0
        OnDrawCell = SG1DrawCell
        OnSelectCell = SG1SelectCell
        ColWidths = (
          154
          155)
      end
      object CB1: TComboBox
        Left = 48
        Top = 22
        Width = 153
        Height = 21
        Hint = 'select import fields'
        Style = csDropDownList
        ItemHeight = 0
        TabOrder = 1
        OnChange = CB1Change
      end
    end
    object OutputPage: TTabSheet
      Caption = 'OutputPage'
      TabVisible = False
      object TargetLabel: TLabel
        Left = 16
        Top = 24
        Width = 305
        Height = 13
        AutoSize = False
        Caption = 'TargetLabel'
      end
      object Label4: TLabel
        Left = 0
        Top = 0
        Width = 362
        Height = 13
        Align = alTop
        Caption =
          'Sample import data after conversion into destination table field' +
          's'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object OutputSG: TStringGrid
        Left = 16
        Top = 40
        Width = 401
        Height = 121
        DefaultRowHeight = 16
        FixedCols = 0
        TabOrder = 0
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 339
    Width = 437
    Height = 19
    Panels = <
      item
        Width = 100
      end>
    SimplePanel = True
    SizeGrip = False
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '.txt'
    Filter = 'Text files (*.txt)|*.txt'
    Title = 'Save as export text file'
    Left = 192
    Top = 48
  end
end